home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / misc / evenmore / install < prev    next >
Text File  |  1999-04-28  |  12KB  |  499 lines
  1. ; *************************************************************
  2. ;
  3. ; $VER: Install_EvenMore
  4. ; 
  5. ; Install script for EvenMore Copyright ©1996-1998 Chris Perver
  6. ;
  7. ; *************************************************************
  8.  
  9. (set old_level @user-level)
  10. (set @default-dest "")
  11. (set lng @language)
  12.  
  13. (complete 0)
  14.  
  15. ;=============================================================================
  16. ; Norsk
  17.  
  18. (if (= lng "norsk")
  19. (
  20.  
  21. (set #bad-kick
  22.   (cat "Du må ha minst Kickstart 2.04 for å  installere EvenMore")
  23. )
  24. (set #copy-reqtools      "\nKopierer reqtools.library 38.1436 til LIBS:...")
  25. (set #copy-evenmore      "\nKopierer EvenMore exe-fil...")
  26. (set #copy-documentation "\nKopierer EvenMore dokumentasjon...")
  27. (set #copy-iconsstan     "\nKopierer Standard knappe-ikoner ...")
  28. (set #copy-iconsmwb      "\nKopierer MagicWB knappe-ikoner...")
  29. (set #copy-iconsprog     "\nKopierer Program-ikoner...")
  30. (set #copy-iconsdock     "\nKopierer Dokk-ikoner...")
  31. (set #copy-rexx          "\nKopierer ARexx-script...")
  32. (set #copy-pic           "\nKopierer EvenMore bilde...")
  33. (set #copy-cat           "\nKopierer EvenMore kataloger...")
  34. (set #select-dest        "Vennligst velg Evenmore-skuffen med den tidligere installasjonen.")
  35. (set #select-destnew     "Vennligst velg stien for installasjon av Evenmore. En skuff kalt Evenmore vil bli laget der.")
  36. (set #select-destdocs    "Vennligst velg stien for installasjon av dokumentasjonen til Evenmore. Den har allerede blitt installert sammen med hovedprogrammet.")
  37. (set #select-destrexx    "Vennligst velg stien for installasjon av ARexx-script. Den har allerede blitt installert sammen med hovedprogrammet.")
  38. (set #query-install      "Ønsker du å oppdatere eller installere EvenMore?")
  39. (set #query-copydocs     "Ønsker du å installere dokumentasjonen til Evenmore på noe annet sted?")
  40. (set #query-copyprefs    "Ønsker du å installere standard preferanse-filen?")
  41. (set #query-copyrexx     "Ønsker du å installere ARexx-script på noe annet sted?")
  42. (set #yes                "Ja")
  43. (set #no                 "Nei")
  44.  
  45. )
  46.  
  47. ;=============================================================================
  48. ; English
  49.  
  50. (
  51.  
  52. (set #bad-kick
  53.   (cat "You must at least have Kickstart 2.04 to install EvenMore")
  54. )
  55. (set #copy-reqtools      "\nCopying reqtools.library 38.1436 to LIBS:...")
  56. (set #copy-evenmore      "\nCopying EvenMore executable...")
  57. (set #copy-documentation "\nCopying EvenMore documentation...")
  58. (set #copy-iconsstan     "\nCopying Standard gadget icons...")
  59. (set #copy-iconsmwb      "\nCopying MagicWB gadget icons...")
  60. (set #copy-iconsprog     "\nCopying Program icons...")
  61. (set #copy-iconsdock     "\nCopying Dock icons...")
  62. (set #copy-rexx          "\nCopying ARexx scripts...")
  63. (set #copy-pic           "\nCopying EvenMore snapshot...")
  64. (set #copy-cat           "\nCopying EvenMore catalogs...")
  65. (set #select-dest        "Please select the EvenMore directory.")
  66. (set #select-destnew     "Please select the path where you want to install EvenMore. A drawer named EvenMore will be created there.")
  67. (set #select-destdocs    "Please select the path where you want to install the EvenMore documentation. It has already been installed along with the main program.")
  68. (set #select-destrexx    "Please select the path where you want to install the ARexx scripts. It has already been installed along with the main program.")
  69. (set #query-install      "Do you wish to install or update EvenMore?")
  70. (set #query-copydocs     "Do you wish to install the EvenMore documentation anywhere else?")
  71. (set #query-copyprefs    "Do you wish to install the default preference file?")
  72. (set #query-copyrexx     "Do you wish to install the ARexx scripts anywhere else?")
  73. (set #yes                "Yes")
  74. (set #no                 "No")
  75.  
  76. )
  77. )
  78.  
  79. ;=============================================================================
  80. ; Make sure we are running under a 2.04 ROM
  81.  
  82. (if (< (/ (getversion) 65536) 37)
  83.   (
  84.     (abort #bad-kick)
  85.   )
  86. )
  87.  
  88. ;=============================================================================
  89. ; Install or update
  90. (set install
  91.   (askchoice
  92.      (prompt #query-install)
  93.      (help @askchoice-help)
  94.      (choices "Install" "Update")
  95.   )
  96. )
  97.  
  98.  
  99. ;-----------------------------------------------------------------------------
  100. ; Copy Required libraries
  101.  
  102. (if (= install 0)
  103.   (
  104.     (copylib
  105.       (prompt #copy-reqtools)
  106.       (help @copylib-help)
  107.       (source "Libs/reqtools.library")
  108.       (dest "LIBS:")
  109.       (confirm)
  110.     )
  111.   )
  112. )
  113. (complete 10)
  114.  
  115. ;-----------------------------------------------------------------------------
  116. ; Copy EvenMore executable
  117.  
  118. (if (= install 0)
  119.   (
  120.     (set programdir
  121.       (askdir
  122.         (prompt  #select-destnew)
  123.         (help @askdir-help)
  124.         (default "RAM:")
  125.         (newpath)
  126.       )
  127.     )
  128.   )
  129.   (
  130.     (set programdir
  131.       (askdir
  132.         (prompt  #select-dest)
  133.         (help @askdir-help)
  134.         (default "EvenMore:")
  135.       )
  136.     )
  137.   )
  138. )
  139.  
  140. (if (= install 0)
  141.   ; Create EvenMore drawer
  142.   (
  143.     (makedir (tackon programdir "EvenMore")
  144.       (help @makedir-help)
  145.     )
  146.  
  147.     ; Copy EvenMore drawer icon
  148.     (copyfiles
  149.       (prompt #copy-evenmore)
  150.       (help @copyfiles-help)
  151.       (source "/EvenMore.info")
  152.       (dest programdir)
  153.     )
  154.  
  155.     (set programdir (tackon programdir "EvenMore"))
  156.   )
  157. )
  158. (set @default-dest programdir)
  159.  
  160. (copyfiles
  161.   (prompt #copy-evenmore)
  162.   (help @copyfiles-help)
  163.   (source "")
  164.   (dest programdir)
  165.   (pattern "EvenMore")
  166.   (infos)
  167. )
  168. (complete 20)
  169.  
  170. ;-----------------------------------------------------------------------------
  171. ; Documentation files
  172.  
  173. (if (not (exists (tackon programdir "Docs")))
  174.   (
  175.     (makedir (tackon programdir "Docs")
  176.       (help @makedir-help)
  177.     )
  178.  
  179.     (copyfiles
  180.       (prompt #copy-documentation)
  181.       (help @copyfiles-help)
  182.       (source "Docs.info")
  183.       (dest programdir)
  184.     )
  185.   )
  186. )
  187.  
  188. (copyfiles
  189.   (prompt #copy-documentation)
  190.   (help @copyfiles-help)
  191.   (source "Docs")
  192.   (dest (tackon programdir "Docs"))
  193.   (all)
  194.   (confirm "expert")
  195.   (infos)
  196. )
  197. (complete 30)
  198.  
  199. ; Ask if documentation should be installed elsewhere
  200.  
  201. (if
  202.   (askbool
  203.     (prompt #query-copydocs)
  204.     (choices #yes #no)
  205.     (default 0)
  206.     (help @askbool-help)
  207.   )
  208.   (
  209.     (set doit 1)
  210.   )
  211.   (
  212.     (set doit 0)
  213.   )
  214. )
  215.  
  216. (if (= doit 1)
  217.   (
  218.     (set docdir
  219.       (askdir
  220.         (prompt #select-destdocs)
  221.         (help @askdir-help)
  222.         (default (tackon programdir "Docs"))
  223.         (newpath)
  224.       )
  225.     )
  226.  
  227.     (copyfiles
  228.       (prompt #copy-documentation)
  229.       (help @copyfiles-help)
  230.       (source "Docs/")
  231.       (pattern "#?.guide")
  232.       (dest docdir)
  233.       (infos)
  234.     )
  235.   )
  236. )
  237. (complete 40)
  238.  
  239. ;-----------------------------------------------------------------------------
  240. ; Copy catalogs
  241.  
  242. (if (not (exists (tackon programdir "Catalogs")))
  243.   (
  244.     (makedir (tackon programdir "Catalogs")
  245.       (help @makedir-help)
  246.     )
  247.   )
  248. )
  249.  
  250. (copyfiles
  251.   (prompt #copy-cat)
  252.   (help @copyfiles-help)
  253.   (source "Catalogs/")
  254.   (dest (tackon programdir "Catalogs/"))
  255.   (all)
  256.   (confirm "novice")
  257. )
  258. (complete 45)
  259.  
  260. ;-----------------------------------------------------------------------------
  261. ; Copy icons
  262.  
  263. ; OBSOLETE
  264. (if (exists (tackon programdir "Icons/Standard/loadicon.info"))   (delete (tackon programdir "Icons/Standard/loadicon.info") ))
  265. (if (exists (tackon programdir "Icons/Standard/reloadicon.info")) (delete (tackon programdir "Icons/Standard/reloadicon.info") ))
  266. (if (exists (tackon programdir "Docs/EvenMore.doc")) (delete (tackon programdir "Docs/EvenMore.doc") ))
  267. (if (exists (tackon programdir "Docs/EvenMore.doc.info")) (delete (tackon programdir "Docs/EvenMore.doc.info") ))
  268.  
  269. (if (exists (tackon programdir "Icons/MagicWB/loadicon.info"))   (delete (tackon programdir "Icons/MagicWB/loadicon.info") ))
  270. (if (exists (tackon programdir "Icons/MagicWB/reloadicon.info")) (delete (tackon programdir "Icons/MagicWB/reloadicon.info") ))
  271. (delete (tackon programdir "Icons/#?.info"))
  272.  
  273. (delete (tackon programdir "Docs/EvenMore.guide"))
  274.  
  275. (set iconsdir
  276.   (tackon
  277.     programdir
  278.     "Icons"
  279.   )
  280. )
  281.  
  282. (if (not (exists iconsdir))
  283.   (
  284.     (makedir iconsdir
  285.       (help @makedir-help)
  286.     )
  287.     (copyfiles
  288.       (prompt #copy-iconsstan)
  289.       (help @copyfiles-help)
  290.       (source "Icons.info")
  291.       (dest programdir)
  292.     )
  293.   )
  294. )
  295.  
  296. ; Standard gadget icons
  297.  
  298. (if (not (exists (tackon iconsdir "Standard")))
  299.   (
  300.     (makedir (tackon iconsdir "Standard")
  301.       (help @makedir-help)
  302.     )
  303.   )
  304. )
  305.  
  306. (copyfiles
  307.   (prompt #copy-iconsstan)
  308.   (help @copyfiles-help)
  309.   (source "Icons/Standard/")
  310.   (dest (tackon iconsdir "Standard/"))
  311.   (pattern "#?.info")
  312.   (confirm "expert")
  313. )
  314. (complete 50)
  315.  
  316. ; MagicWB gadget icons
  317.  
  318. (if (not (exists (tackon iconsdir "MagicWB")))
  319.   (
  320.     (makedir (tackon iconsdir "MagicWB")
  321.       (help @makedir-help)
  322.     )
  323.   )
  324. )
  325.  
  326. (copyfiles
  327.   (prompt #copy-iconsmwb)
  328.   (help @copyfiles-help)
  329.   (source "Icons/MagicWB/")
  330.   (dest (tackon iconsdir "MagicWB/"))
  331.   (pattern "#?.info")
  332.   (confirm "expert")
  333. )
  334. (complete 60)
  335.  
  336. ; Program icons
  337.  
  338. (if (not (exists (tackon iconsdir "Program")))
  339.   (
  340.     (makedir (tackon iconsdir "Program")
  341.       (help @makedir-help)
  342.     )
  343.   )
  344. )
  345.  
  346. (copyfiles
  347.   (prompt #copy-iconsprog)
  348.   (help @copyfiles-help)
  349.   (source "Icons/Program/")
  350.   (dest (tackon iconsdir "Program/"))
  351.   (pattern "#?.info")
  352.   (confirm "expert")
  353. )
  354. (complete 70)
  355.  
  356. ; Dock icons
  357.  
  358. (if (not (exists (tackon iconsdir "Dock")))
  359.   (
  360.     (makedir (tackon iconsdir "Dock")
  361.       (help @makedir-help)
  362.     )
  363.   )
  364. )
  365.  
  366. (copyfiles
  367.   (prompt #copy-iconsdock)
  368.   (help @copyfiles-help)
  369.   (source "Icons/Dock/")
  370.   (all)
  371.   (dest (tackon iconsdir "Dock/"))
  372.   (confirm "expert")
  373. )
  374. (complete 80)
  375.  
  376. ;-----------------------------------------------------------------------------
  377. ; Copy EvenMore rexx dir
  378.  
  379. (if (not (exists (tackon programdir "rexx")))
  380.   (
  381.     (makedir (tackon programdir "rexx")
  382.       (help @makedir-help)
  383.     )
  384.   )
  385.  
  386. (copyfiles
  387.     (prompt #copy-rexx)
  388.     (help @copyfiles-help)
  389.     (source "rexx")
  390.     (dest (tackon programdir "rexx"))
  391.     (all)
  392.     (confirm "expert")
  393.   )
  394. )
  395.  
  396. (if
  397.   (askbool
  398.     (prompt #query-copyrexx)
  399.     (choices #yes #no)
  400.     (default 0)
  401.     (help @askbool-help)
  402.   )
  403.   (
  404.     (set doit 1)
  405.   )
  406.   (
  407.     (set doit 0)
  408.   )
  409. )
  410.  
  411. (if (= doit 1)
  412.   (
  413.     (set rexxdir
  414.       (askdir
  415.         (prompt #select-destrexx)
  416.         (help @askdir-help)
  417.         (default (tackon programdir "Rexx"))
  418.         (newpath)
  419.       )
  420.     )
  421.  
  422.     (copyfiles
  423.       (prompt #copy-rexx)
  424.       (help @copyfiles-help)
  425.       (source "rexx")
  426.       (dest rexxdir)
  427.       (all)
  428.       (confirm "expert")
  429.     )
  430.   )
  431. )
  432.  
  433. ;-----------------------------------------------------------------------------
  434. ; Copy EvenMore lib dir
  435.  
  436. (if (not (exists (tackon programdir "libs")))
  437.   (
  438.     (makedir (tackon programdir "libs")
  439.       (help @makedir-help)
  440.     )
  441.  
  442.     (copyfiles
  443.       (prompt #copy-libs)
  444.       (help @copyfiles-help)
  445.       (source "libs")
  446.       (dest (tackon programdir "libs"))
  447.       (all)
  448.     )
  449.   )
  450. )
  451. (complete 90)
  452.  
  453. ;-----------------------------------------------------------------------------
  454. ; Copy EvenMore snapshot
  455.  
  456. (copyfiles
  457.   (prompt #copy-pic)
  458.   (help @copyfiles-help)
  459.   (source "EvenMore.snapshot")
  460.   (dest programdir)
  461.   (confirm "expert")
  462. )
  463.  
  464. ;-----------------------------------------------------------------------------
  465. ; Copy EvenMore config
  466.  
  467. (if
  468.   (askbool
  469.     (prompt #query-copyprefs)
  470.     (choices #yes #no)
  471.     (default 1)
  472.     (help @askbool-help)
  473.   )
  474.   (
  475.     (copyfiles
  476.       (prompt #copy-libs)
  477.       (help @copyfiles-help)
  478.       (source "EvenMore.config")
  479.       (dest programdir)
  480.     )
  481.   )
  482. )
  483. (complete 95)
  484.  
  485. ;-----------------------------------------------------------------------------
  486. ; Copy EvenMore installer
  487.  
  488. (copyfiles
  489.   (prompt #copy-libs)
  490.   (help @copyfiles-help)
  491.   (source "")
  492.   (dest programdir)
  493.   (pattern "Install")
  494.   (infos)
  495. )
  496. (complete 100)
  497.  
  498. (exit)
  499.